home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / AutoFX / SaveBufferAs_MPEG.ifx < prev    next >
Text File  |  1996-03-02  |  1KB  |  63 lines
  1. /*
  2.  * SaveBufferAs_MPEG.ifx
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Encode an MPEG stream from a series of frames.  Uses third-party
  6.  * MPEG encoder software.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Frame number (1 - N)
  10.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  11.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  12.  *    Word(Arg(1),4) = Sequence number
  13.  *    Word(Arg(1),5) = Total number of frames (N)
  14.  *
  15.  * Returns:
  16.  *    0 if successful, non-zero on failure
  17.  *
  18.  */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. base  = 'Autofx_MPEG_'
  23.  
  24. framenum = Word(Arg(1),1)
  25. mainname = Word(Arg(1),2)
  26. swapname = Word(Arg(1),3)
  27. seqnum   = Word(Arg(1),4)
  28. framemax = Word(Arg(1),5)
  29.  
  30. newpath = GETCLIP(base||'Path')
  31. neww    = GETCLIP(base||'Width')
  32. newh    = GETCLIP(base||'Height')
  33. xing    = GETCLIP(base||'Xing')
  34.  
  35. IF RIGHT(newpath,1) ~= ':' THEN newpath = newpath || '/'
  36.  
  37. newname = newpath||'mpeg_temp'||framenum
  38.  
  39. /* fix:  no longer assumes 'xing' is a boolean */
  40. IF xing ~= 0 THEN DO
  41.    neww = 160
  42.    newh = 120
  43.    END
  44.  
  45. GetPrefs Undo
  46. prevundo = result
  47. Undo Off
  48.  
  49. GetPrefs SaveNails
  50. prevnail = result
  51. SetPrefs SaveNails Off
  52.  
  53. Scale neww newh
  54. IF rc ~= 0 THEN EXIT rc
  55.  
  56. SaveBufferAs YUVSplit newname
  57. IF rc ~= 0 THEN EXIT rc
  58.  
  59. SetPrefs SaveNails prevnail
  60. Undo prevundo
  61.  
  62. EXIT
  63.